Private Function MoveListboxItem(List1 As ListBox, CurrentIndex As Integer, NewIndex As Integer)
      Dim strItem As String
      strItem = List1.List(CurrentIndex)
      List1.RemoveItem CurrentIndex
      List1.AddItem strItem, NewIndex
      End Function